//   
procedure SumArray (RqArray   : array of integer;
                var SumResult : double;
                    RqReport  : TMemo);
var Ind : integer;
begin
  SumResult := 0;
  for Ind := Low(RqArray) to High(RqArray) do
  begin
    SumResult := SumResult + RqArray[Ind];
  end;
  // 
  RqReport.Lines.Add('');
  RqReport.Lines.Add('   :');
  RqReport.Lines.Add(FloatToStr(SumResult));
end; // of procedure